www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/Manage_adminphoto.asp
<!--#include file="conn.asp"--> <!--#include file="check.asp" --> <% select case request("action") case "" call main() case "dell" call dell() case "dellall" call dellall() end select sub main() %> <% bclassid=request("bclassid") search=request("search") wheres="" url="bclassid="&bclassid&"&search="&search&"" Const PAGESIZE=20 Const PARTSIZE=10 dim pagecount,page,Spage,Epage,recordcount,i page = request.querystring("page") if page = "" or IsNull(page) then page = 1 if not IsNumeric(page) then page = 1 page = Cint(page) set rs = server.CreateObject ("Adodb.recordset") if bclassid<>"" then wheres="and Aid="+cstr(bclassid)+"" end if if search<>"" then wheres="and Title like '%"&search&"%'" end if sql="select * from Tsm_photo where 1=1 "&wheres&" order by id desc" rs.open sql,conn,1,1 recordcount = RS.RecordCount RS.PageSize = PAGESIZE pagecount = RS.PageCount if page < 1 then page = 1 elseif page > pagecount then page = pagecount end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title></title> <link href="css.css" rel="stylesheet" type="text/css"> </head> <body> <script language="javascript"> function CheckAll(form) { for (var i=0;i<form.elements.length;i++) { var e = form.elements[i]; if (e.Name != "chkAll") e.checked = form.chkAll.checked; } } function selectSomeone( theForm ) //检查,列表中的信息是否有被选择的。return false,表没有被选择的。 { for (var i=0; i<theForm.elements.length; i++) { var e = theForm.elements[i]; if ( e.checked ) return true; } return false; } function Hello(){ if ( !selectSomeone( form3 )) { alert( "请您选中要操作的信息!"); return false; } else { if(confirm("提示:删除后不能恢复,确定删除选中的信息吗?")==true){ return (true); } return(false); } } </script> <!--#include file="top.htm" --> <br> <table width="90%" border="0" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF" align="center"> <tr> <td height="25" colspan="2" align="center" valign="middle" bgcolor="#F0F0F0"><font color="#FF0000"><b>信息查询</b></font></td> </tr> <form action="" method="post" name="form2"> <tr> <td width="15%" height="25" bgcolor="#F0F0F0">按名称查询:</td> <td width="85%" bgcolor="#F0F0F0"><input name="search" type="text" id="search" size="20" maxlength="50"> <input type="submit" value=" 查 询 "></td> </tr> </form> </table> <br> <table width="90%" border="0" align="center" cellpadding="5" cellspacing="0"> <tr> <td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>信 息 管 理</b></font></td> </tr> </table> <table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#E3E3E3" class="text"> <tr bgcolor="#F6F6F6"> <td width="5%" height="25" align="center" bgcolor="#F6F6F6">选择</td> <td width="70%" align="center" bgcolor="#F6F6F6">名称</td> <td width="10%" align="center" bgcolor="#F6F6F6">排序</td> <td width="5%" align="center" bgcolor="#F6F6F6">修改</td> <td width="5%" align="center" bgcolor="#F6F6F6">删除</td> </tr> <form method="post" action="?action=dellall" name="form3" OnSubmit="return Hello()"> <%if RS.EOF then Response.Write("<tr><td colspan=10 bgcolor=#FFFFFF><center><font color=red>目前还没有内容</font></td></tr>") else if recordcount > 0 then RS.AbsolutePage = page for i = 1 to PAGESIZE if RS.EOF then exit for %> <tr bgcolor="#FFFFFF" onMouseOver="this.bgColor='#F6F6F6'" onMouseOut="this.bgColor='FFFFFF'"> <td height="20" align="center"><input type="checkbox" name="checkbox" value="<% = rs("id")%>"></td> <td height="20" align="center"><%=JieQuZiFu(30,rs("title"))%></td> <td height="20" align="center"><%= rs("paixu") %></td> <td height="20" align="center"><a href="Manage_modphoto.asp?action=Modify&id=<%= rs("id")%>"><img src="img/edit.gif" width="12" height="12" border="0"></a></td> <td height="20" align="center" valign="middle"><a href="?action=dell&id=<%= rs("id") %>" onClick="javascript:return confirm('[ 操作提示 ]\n\n是否确认删除?删除数据将无法逆回!');"><img src="img/icon_del.gif" width="13" height="13" border="0"></a></td> </tr> <% RS.MoveNext() if RS.EOF then exit for next end if %> <tr valign="middle" bgcolor="#F7F7F7"> <td height="20" colspan="10"> <input type="checkbox" id="chkAll" name="chkAll" value="checkbox" onClick="CheckAll(this.form)"> 全选/取消全选 <input type="submit" name="Submit3" value="彻底删除"></td> </tr> </form> <tr align="center" valign="middle" bgcolor="#F7F7F7"> <td height="20" colspan="10"><!--#include file="page.asp"--></td> </tr> </table> <table width="90%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="text"> <tr style="display:none"> <td align="center" valign="middle">* 注:删除产品将连同订购此类产品定单一同删除</td> </tr> </table> </body> </html> <% end sub %> <% sub dell() id = Request("id") sql="delete from Tsm_photo where id = " & id conn.execute sql response.Redirect("Manage_adminphoto.asp") end sub %> <% sub dellall() checkbox=Request("Checkbox") s=split(checkbox,",") for i=0 to Ubound (s) sql="delete from Tsm_photo where id = " & s(i) conn.execute sql next response.Redirect("Manage_adminphoto.asp") end sub %>